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/ 
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/ 

/ 
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/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ PART 2 

/ 

/ USER MODULES FOR SYSTEM EXERCISER 

.EJECT 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

o 

o 

o 

o 

o 

o 
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DECTAP SRC 


00000 R 

00001 R 

00002 R 

00003 R 

00004 R 

00005 R 

00006 R 

00007 R 

00010 R 

00011 R 

00020 R 

00021 R 

00022 R 

00023 R 

00024 R 

00025 R 

00026 R 

00027 R 

00030 R 

00031 R 


600004 A 
000000 A 

000000 A 
000000 A 

001013 R 
000530 R 
040503 A 
240120 A 

000002 A 
A 

000000 A 

000000 A 
000000 A 

0 00000 A 
000000 A 
000000 A 
000000 A 
000000 A 
000 0 0 0 A 
000000 A 


/DECTAPE-SYSTEM EXERCISER MOpUUE- — 

/ 

/REV, DATE 4/18/72 — Cl) 

/THIS IS available IN DECTPI OR DECTPS (1400 OR 400 FOR BUFSI2) 

/ 


ljUDSW 


,ebrel 

600004 

0 

0 

0 

• DSA 
,PSA 


DSERV 

DINIT 


.SIXBT '‘DECTAP” 
2 

.BLOCK 7 


SYSERR 0 
0 

ERCODE 0 
0 


/SYSTEM COMMON. WORD 
/ADDITIONAL COMMON. WORDS 


/SERVICE ENTRANCE 
/INITIALIZATION ENTRANCE, 

/TEST NAME, ****** (DECTPI UR DECTPS) 


/MASK FOR CHAIN MODE 


/SYSTEM ERROR FLAG 

/WORD COUNT FOR ERROR WORDS 
/ERROR CODE 

/ADDITIONAL ERROR DATA WORDS. 


00032 R 
0ca033 R 

00034 R 

00035 R 

00036 R 

00037 R 

00040 R 

00041 R 

00042 R 


00043 

00044 

00045 

00046 

00047 

00050 

00051 

00052 


000000 A 
000000 A 
000000 A 
000000 A 
000000 A 
000000 A 
000000 A 
000000 A 
000000 A 


R 000000 A 
R 000000 A 
R 000000 A 
R 000000 A 

R 000000 A 
R 000000 A 

R 000000 A 
R 000000 A 


00053 R 000000 A 

00054 H A 


/OPERATING parameter STORAGE CELLS. 

/ 

CURHAN 0 /CU 

BLKNUM 0 /BL 

BLOCK 0 
PECWC 0 


/CURRENT TRANSPORT NO, 
/BLOCK NUMBER TO BE REAP OR 


BLOCK 0 
PECWC 0 
HANCNT 0 
RDWRT 0 
NUMBLK 0 
SVSTA 0 
SVSTB 0 
/ 

DISTSW 0 
POLSW 0 
ERRFLG 0 
RUNLEN 0 

MOVERR 0 
INWC 0 

INCA 0 

APIFLG 0 

/ 


SAVERR .BLOCK 10 
.EJECT 


/WRITTEN INTO, AND MAX, NO, BLKS. 


/DISTRIBUTION SWITCH IN DSERV 


/SECOND ERROR FLAG. 


/API ACTIVE FLAG 


/SECOND ERROR SAVE 


O 



3 


DECTAP 

SRC 




004000 

A 

BUFSIZ=4000 



000400 

A 

BLKSIZ=400 



000010 

A 

BUFBLK=BUFSIZ/400 



000440 

A 

TSTRUN=440 

/ 

00064 

R 

021400 

A 

/ 

SEARCH 021400 

00066 

R 

206413 

R 

LAC7 LAC C 

00066 

R 

000004 

A 

DELTA 4 



707541 

A 

/ 

OTCA=707541 



707552 

A 

DTRAS707552 



707644 

A 

DTXA=707544 



707545 

A 

DTLA=707545 



707561 

A 

DTEF=707561 



707572 

A 

DTRB=707572 



707601 

A 

DTDF=707601 



707764 

707702 

A 

A 

EBA=707764 

EEM=707702 

/ 

SYSHC 30 

00067 

R 

000030 

A 

00070 

R 

000031 

A 

SYSCA 31 


C7) 


/tiUFFER UFNGTH 
/aiOCK LENGTH. 


C1400 OR 400) 


/search command 


/CLEAR STATUS A-REG. 

/READ STATUS A’-REG. 

/XOR STATUS A-REG- 
/LOAD STATUS A-REG. 

/SKIP ON ERROR FLAG. 

/READ STATUS 8-REG. 

/SKIP ON DEC TAPE FLAG, 

/enable bank mode addressing 

/TURN ON EXTEND MODE FOR PDP-9 


/TEMPORARY STORAGE CELLS. 


00071 

R 

000000 

A 

/ 

TEMPI 

0 

00072 

R 

000000 

A 

TEMP2 

0 

00073 

R 

000000 

A 

TEHP3 

0 

00074 

R 

000000 

A 

TEMP4 

0 

00075 

R 

000000 

A 

TEMPS 

0 

00076 

R 

000000 

A 

TEMP6 

0 

00077 

R 

000000 

A 

TEMP7 

/ 

0 


/TRANSPORT NUMB£RS«»US£D IN PREPARING COMMANDS. 
/ 


mm 

R 

mmm 

A 

HANNUM 

l’00000 


00102 

R 

200000 

A 


200000 


00103 

R 

300000 

A 


300000 


00104 

R 

400000 

A 


400000 


00105 

R 

600000 

A 


500000 


00106 

R 

600000 

A 


600000 


00107 

R 

700000 

A 


700000 






/ 

/CURRENT 

j 

BLOCK 

NUMBER table 

00110 

R 


A 

f 

t^KNUM 

.BLOCK 

10 

00120 

R 


A 

MAPSTR 

.BLOCK 

400 

00520 

R 


A 

ACTIVE 

.BLOCK 

.EJECT 

10 
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/DECTAPE INITIAUZATIDN ROUTINE. 
/ 


00530 

R 

000000 

A 

DINIT 

0 



00531 

R 

707764 

A 


EBA 



00532 

R 

7P37702 

A 


EEM 



00533 

R 

146362 

R 


DZM 

DSTSWl 


00534 

R 

200003 

R 


lAC 

UODSW+3 


00535 

R 

506414 

R 


AND 

C377777D 


00536 

R 

741200 

A 


SNA 



00537 

R 

600543 

R 


JHP 

. + 4 


00540 

R 

740001 

A 


CNA 



00541 

R 

346415 

R 


TAD 

Cl) 


00542 

R 

741000 

A 


SKP 



00543 

R 

777340 

A 


LAW 

-TSTRUN 

/PRESET RUN COUNTER. 

00544 

R 

040046 

R 


DAC 

RUNLEN 


00545 

R 

777777 

A 


LAW 

” 1 


00546 

R 

046365 

R 


DAC 

FIRSTS 

/FOR PARITY ERROR 

00547 

R 

200065 

R 


LAC 

LAC7 


00550 

00551 


042125 

200030 



ESE 

mh 

/SET RETURN ADR. IN DESKV. 

00552 

R 

041013 

R 


DAC 

DSERV 


00553 

R 

140047 

R 


DZM 

MOVERR 

/CLEAR SECOND ERROR FLAG, 

00554 

R 

140062 

R 


DZM 

APIFLG 

/CLEAR API FLAG. 

00555 

R 

140020 

R 


DZM 

SYSERR 


00556 

R 

140021 

R 


DZM 

ERCQOE-l 


00557 

R 

140045 

R 


DZM 

ERRFLG 

/CLEAR SYSTEM ERROR FLAG. 

00560 

R 

146361 

R 


DZM 

DPNE^-^ 


00561 

R 

102010 

R 


JMS 

RESBUF 


00562 

R 

777000 

A 


LAW 

"BUFSIZ/4 


00563 

R 

046355 

R 


DAC 

DlHnXn 


00564 

R 

101772 

R 


JMS 

BUFGEN 


00565 

R 

446355 

R 


ISZ 

DIN.l 


00566 

R 

600564 

R 


JMP 

• "2 


00567 

R 

707541 

A 


DTCA 


/CLEAR A REG. 

00570 

R 

750000 

A 


CLA 



00571 

R 

707545 

A 


DTLA 


/AND ALL FLAGS IN CONTROL. 

00572 

R 

777771 

A 


LAW 

"7 

/SET-UP TO POLL HANDLERS, 

00573 

R 

046355 

R 


DAC 

DIN.l^^ 


00574 

R 

206416 

R 


LAC 

Cl) 

/PRESET HANDLER NO, FIRST 

00575 

R 

040032 

R 


DAC 

CURHAN 

/BLOCK NUMBER TO 2 AND NO, 

00576 

R 

206416 

R 


LAC 

C3) 

/OF BLOCKS TO 1 FOR INITIAL 

00577 

R 

040033 

R 


DAC 

BLKNUM 

/TRY ON EACH HANDLER, 

00600 

R 

206415 

R 


LAC 

Cl) 


00601 

R 

040040 

R 


DAC 

numblk 


00602 

R 

777370 

A 


LAW 

*410 

/CLEAR ALL MAPS TO ZERO 

00603 

R 

046356 

R 


DAC 

0IN.2*# 

/CI.E,, NONE WRITTEN), INCLUDE 

00604 

R 

206417 

R 


LAC 

CMAPSTR) 

/ACTIVE TABLE AS WELL, 

00605 

R 

046357 

R 


DAC 

0IN,3i^ 


00606 

R 

166357 

R 


DZM* 

DIN, 3 


00607 

R 

446357 

R 


ISZ 

DIN, 3 


00610 

R 

446356 

R 


ISZ 

DIN. 2 


00611 

R 

600606 

R 


JMP 

.EJECT 

ff *3 
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00612 

R 

140036 

R 


DZM 

HANCNT 

/CLEAR HANDLER COUNTER, 

00613 

R 

206420 

R 


UAC 

CACTIVE+U 

/SET UP TO MARK ACTIVE 

00614 

R 

0 4 6 3 5 6 

R 


DAC 

DIN, 2 

/HANDLERS AND SET POLLING 

00615 

R 

206421 

R 


LAC 

(BKNUMtn 


00616 

R 

046360 

R 


DAC 

DIN, 4# 


0P3617 

R 

206422 

R 


LAC 

CDINI,3) 

/SWITCH, 

00620 

R 

046372 

R 


DAC 

POLSWl^# 


00621 

R 

040044 

R 


DAC 

PQLSW 


00622 

R 

206423 

R 


LAC 

CFNDB,3+1) 


00623 

R 

046373 

R 


DAC 

P0LSW2« 


00624 

R 

777400 

A 


LAW 

-BLKSIZ 

/SET INITIAL WORD COUNT, 

00625 

R 

040035 

R 


DAC 

DECWC 


00626 

R 

750001 

A 


CLC 

• 


00627 

R 

040037 

R 


DAC 

RDWRT 


00630 

R 

101413 

R 

DINI.2 

JMS 

KNDBLK 

/FIND BLOCK, 

00631 

R 

200032 

R 


LAC 

CURHAN 

/IF RETURN HERE, HANDLER 

00632 

R 

101705 

R 


JMS 

MPY32 

/ON LINE, SET BLOCK 1 

00633 

R 

346417 

R 


TAD 

CHAPSTR3 

/AS WRITTEN IN, 

00634 

R 

046357 

R 


DAC 

DIN, 3 


00635 

R 

206424 

R 


LAC 

C40000) 

/MARK FOR MAP BLOCK 1. 

00636 

R 

066357 

R 


DAC* 

DIN. 3 


00637 

R 

440036 

R 


ISZ 

HANCNT 

/INCREMENT HANDLER CNT, 

00640 

R 

777777 

A 


LAW 

* 1 

/SET THIvS HANDLER ACTIVE, 

00641 

R 

066356 

R 


DAC* 

DIN, 2 


00642 

R 

206416 

R 


LAC 

C3) 


00643 

R 

066360 

R 


DAC* 

DIN, 4 



.EJECT 
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DECTAP SRC 


O 


/RQUTXNE FOR PARAMETER MODE 
/ 


0 

00644 

R 

200000 

R 


LAC 

UOOSW /IS PARAMETER MODE CALLED FOR 

o 


00646 

R 

606425 

R 


AND 

C100000) 



00646 

R 

741200 

A 


SNA 


o 

o 

00647 

R 

600753 

R 


JMP 

DINI,3 


00650 

R 

20P1003 

R 


LAC 

UOOSW+3 



00661 

R 

506414 

R 


AND 

C377777 


o 

00662 

R 

740001 

A 


CMA 


o 

00663 

R 

040046 

R 


DAC 

runlen 



00654 

R 

200000 

R 


LAC 

UOOSW 


o 

00655 

R 

506426 

R 


AND 

(300) 

o 

00656 

R 

546427 

R 


SAD 

(0) 



00657 

R 

600753 

R 


JMP 

DINI.3 


o 

00660 

R 

546430 

R 


SAD 

C100) 

o 

00661 

R 

600670 

R 


JMP 

RDTST 



00662 

R 

546431 

R 


SAD 

C200) 


o 

00663 

R 

741000 

A 


SKP 


o 

00664 

R 

601115 

R 


JMP 

TERMIN 



00665 

R 

750001 

A 


CLC 



o 

00666 

R 

040037 

R 


DAC 

RDWRT 

o 

00667 

R 

741000 

A 


SKP 




00670 

R 

140037 

R 

RDTST 

DZM 

RDWRT /8EGIN READ TEST. 


o 

00671 

R 

206432 

R 


LAC 

(JMP* SUMEXT) 

o 

00672 

R 

042125 

R 


DAC 

ER07 



00673 

R 

774000 

A 


LAW 

^BUFSIZ 


o 

00674 

R 

046411 

R 


DAC 

TST.l# 

o 

00675 

R 

206433 

R 


LAC 

CbUF) 



0P1676 

R 

046412 

R 


DAC 

TST.2^? 

o 

o 

00677 

R 

200001 

R 


LAC 

UQDSW+1 


00700 

R 

066412 

R 


DAC* 

TST.2 


o 

00701 

R 

446412 

R 


ISZ 

TST.2 

o 



N 




:im 

TS5.1 


o 

00704 

R 

200002 

R 


LAC 

UOOSW+2 

o 

00705 

R 

741100 

A 


SPA 




00706 

R 

600714 

R 


JMP 

TSTl /UQDSWt2 FOR NEC LENGTH, 


o 

00707 

R 

741200 

A 


SNA 


o 

00710 

R 

600714 

R 


JMP 

TSTl 



00711 

R 

346434 

R 


TAD 

C-0UFSrZ"U 

o 

o 

00712 

R 

741100 

A 


SPA 


00713 

R 

600716 

R 


JMP 

.+3 



.EJECT 

o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 



o 
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DECTAP 

SRC 




o 

o 

00714 

R 

206435 

R 

TSTl 

LAC 

CBUFSIZ) 

o 


00715 

R 

040002 

R 


OAC 

uaosw +2 


o 

00716 

R 

750001 

A 


cue 


o 


00717 

R 

340002 

R 


TAD 

UODS0+2 



00720 

R 

506436 

R 


AND 

C7400) 


o 

00721 

R 

744000 

A 


cu 


o 


00722 

R 

742020 

A 


RTR 




00723 

R 

742020 

A 


RTR 



o 

00724 

R 

742020 

A 


RTR 


o 

00725 

R 

742020 

A 


RTR 




00726 

R 

346415 

R 


TAD 

CU 


0 

00727 

R 

040040 

R 


DAC 

NUM8LK 

o 

00730 

R 

750001 

A 


cue 




00731 

R 

340002 

R 


TAD 

UOOSW+2 


o 

00732 

R 

740001 

A 


CMA 


o 

00733 

R 

040035 

H 


DAC 

DEC0C 


o 

00734 

R 

206416 

R 

7 

UAC 

C3) 

o 

00735 

R 

040033 

R 


DAC 

BLKNUM 



00736 

R 

101413 

R 

TST2 

JMS 

FNDBLK 


o 

00737 

R 

200033 

R 


LAC 

BLKNUM /PARA. TEST LOOP. 

o 

00740 

R 

340040 

R 


TAD 

NUMBLK 


00741 

R 

340066 

R 


TAD 

DELTA 


o 

00742 

R 

040033 

R 


DAC 

BLKNUM 

O 

00743 

R 

346437 

R 


TAD 

(-1073) 


00744 

R 

741100 

A 


SPA 



o 

00745 

R 

600750 

R 


JMP 

. +3 


00746 

R 

206416 

R 


LAC 

C3) 



00747 

R 

040033 

R 


DAC 

BLKNUM 


o 

00750 

R 

440046 

R 


ISZ 

runlen 

o 

00751 

R 

600736 

R 


JMP 

TST2 


00752 

R 

601115 

R 


JMP 

TERMIN 


o 






.EJECT 


o 


o o 


o 

o 

o 

o 

o 


o 

o 

o 

o 

o 


o 


o 


o o 

o 


o 
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0«753 

R 

707541 

A 

DIN1,3 

OTCA 


/CLEAR ALL FLAGS 

00754 

R 

206416 

R 


LAC 

(3) 


00755 

R 

040033 

R 


DAC 

BLKNUM 


00756 

R 

440032 

R 


ISZ 

CURHAN 

/INCREMENT PARAMETERS 

00757 

R 

446356 

R 


IS7. 

DIN.2 

/FOR NEXT HANDLER, 

00760 

R 

446360 

R 


ISZ 

DIN, 4 


00761 

R 

446355 

R 


ISZ 

DIN.l 


00762 

R 

600630 

R 

/ 

JMP 

DINI.2 

/RECYCLE, NOT DONE, 

00763 

R 

206440 

R 


LAC 

CDSER,8+1) 


00764 

R 

040044 

R 


DAC 

POLS0 


00765 

R 

206441 

R 


LAC 

CER031 


00766 

R 

046372 

R 


DAC 

POLSWl 


00767 

R 

206442 

R 


LAC 

CER04) 


00770 

R 

046373 

R 


DAC 

P0LSW2 


00771 

R 

200036 

R 


LAC 

HANCNT 

/DONE, RESET POLLING SWITCH, 

00772 

R 

741200 

A 


SNA 



00773 

R 

602050 

R 


JNP 

ER01 

7ERRROR 1— ’NO TRANSPORTS, 

00774 

R 

740001 

A 


CMA 



00775 

R 

346415 

R 


TAD 

CU 


00776 

R 

046376 

R 


DAC 

SLN,1 


00777 

R 

750000 

A 


CLA 



01000 

R 

340046 

R 


TAD 

RUNLEN 


01001 

R 

744000 

A 


CLL 



01002 

R 

446376 

R 


ISZ 

SLN,1 


01003 

R 

601000 

R 


JNP 

• *"3 


01004 

R 

040046 

R 

y 

DAC 

RUNLEN 


01005 

R 

101160 

R 

/ 

DCTAPl 

JMS 

SLNXHN 

/TEST LOOP - SELECT NEXT 

01006 

R 

101255 

R 


JMS 

MAPS0R 

/handler, then LOOK UP BLOCK 

01007 

R 

101413 

R 


JNS 

FND8LK 

/IN MAP, FIND BLOCK ON TAPE 

01010 

R 

440046 

R 


ISZ 

RUNLEN 

/AND PERFORM OPERATION, 

01011 

R 

601005 

R 


JMP 

DCTAPl 

/CHECK FOR END OF PASS. 

01012 

R 

601115 

R 


JMP 

TERMIN 

/END - EXIT. 


• EJECT 
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/SERVICE ENTRANCE TO PEC-TAPE 
/ 


o 

01013 

R 

000000 

A 

DSERV 

0 


01014 

R 

707764 

A 


ESA 



01015 

R 

707702 

A 


EEM 


o 

01016 

R 

046347 

R 


OAC 

acsave# 

01017 

R 

707552 

A 


OTRA 



01020 

R 

040041 

R 


DAC 

SVSTA 

o 

01021 

R 

707572 

A 


DTRB 



01022 

R 

0400^2 

R 


DAC 

SVSTB 


01023 

R 

200020 

R 


LAC 

SYSERR 

o 

01024 

R 

741200 

A 


SNA 



01025 

R 

601054 

R 


JMP 

DSER.i 


01026 

R 

546443 

R 


SAD 

C-5I 

o 

01027 

R 

621013 

R 


JHP* 

DSERV 


01030 

R 

206444 

R 

0SER,4 

LAC 

C400000) 

o 

01031 

R 

705501 

A 


SPI 



01032 

R 

601043 

R 


JMP 

DSER,2 

0 

01033 

R 

777777 

A 


LAW 

- 1 

01034 

R 

040052 

R 


DAC 

APIFLG 


01035 

R 

707561 

A 


OTEF 


Q 

01036 

R 

741000 

A 


SKP 


01037 

R 

601131 

R 


JMP 

DSER.6 


01040 

R 

707601 

A 


DTDF 


O 

01041 

R 

602076 

R 


JMP 

ER05 

01042 

R 

620043 

R 


JMP* 

DISTSW 

0 

01043 

R 

140052 

R 

DSER.2 

DZM 

APIFLG 

01044 

R 

707561 

A 


DTEF 



01045 

R 

741000 

A 


SKP 


o 

01046 

R 

60U31 

R 


JMP 

DSER.6 

01047 

R 

707601 

A 


DTDF 



01050 

R 

741000 

A 


SKP 


o 

01051 

R 

620043 

R 


JMP* 

DISTSW 

01052 

R 

750001 

A 


CLC 


o 

01053 

R 

621013 

R 

/ 

JMP* 

DSERV 

01054 

R 

200047 

R 

DSER.i 

LAC 

MOVERR 


01055 

R 

740200 

A 


S/A 


o 

01056 

R 

601063 

R 


JMP 

DSER.b 

01057 

R 

206362 

R 


LAC 

OSTSWl^ 


01060 

R 

740200 

A 


SZA 


0 

01061 

R 

602043 

R 


JMP 

BREAKl 

01062 

R 

601030 

R 


JMP 

DSER.4 


01063 

R 

200053 

R 

0SER.5 

LAC 

saverr-1 

o 

01064 

R 

346445 

R 


TAD 

C-U 


01065 

R 

04007 1 

R 


DAC 

TEMPI 


01066 

R 

206446 

R 


LAC 

CSAVERR-n 

o 

01067 

R 

040072 

R 


DAC 

TEMP2 


01070 

R 

206447 

R 


LAC 

CERCQPE-n 

0 

01071 

R 

040073 

R 

j 

DAC 

TEMP3 


o 


o 


ROUTINE, 

/SAVE AC INCASE API ENTRY. 

/PREVIOUS ERROR FLAG HIGH, 
/NO, try HOVE ERROR, 

/CHECK API ON, 

/NOT ON. 

/ON, SET API FLAG, 

/CHECK ON interrupt, 

/ERROR INTERRUPT, 

/neither, error, 

/HAG. TAPE FLAG INTERRUPT. 

/RESET API FLAG - API OFF, 
/CHECK ON INTERRUPT 

/ERROR INTERRUPT. 

/MAG. TAPE FLAG INTERRUPT, 
/neither - RETURN TO MONITOR, 

/CHECK HOVERR FOR ENTRY 
/NOT HOVERR - SERVICE INTER, 

/IS MOVE ERROR - TRANSFER 
/DATA IN SAVERR TO ERCODE. 


o 

o 

o 

o 

o 

o 

o 

I 

o 

o 

I 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


PAGE 1(3 
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O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

u 

o 


01072 

R 

220072 

R 

DSER,7 

lAC* 

TEMP2 

/MORE DATA, 

01073 

R 

060073 

R 


DAC* 

TEHP3 


01074 

R 

440072 

R 


ISZ 

TEMP2 


01075 

R 

440073 

R 


ISZ 

TEMPS 


01076 

R 

440071 

R 


ISZ 

TEMPI 


01077 

R 

601072 

R 


J0P 

DSER,7 


01100 

R 

777777 

A 


EAW 

"1 

/SET SYSERR AGAIN, CLEAR 

01101 

R 

040020 

R 


DAC 

SYSERR 

/MOVE ERROR FLAG, AND 

01102 

R 

140047 

R 


DZM 

MOVERR 

/EXIT THRU END PUT, 

01103 

R 

622306 

R 


JMP* 

ENDPUT 


01104 

R 

101772 

R 

EXIT 

JNS 

BUFGEN 

/change data IN BUFFER, 

01105 

R 

200052 

R 


LAC 

APIFLG 

/EXIT - AFTER INITIATING 

01106 

R 

740200 

A 


SZA 


/AN OPERATION - CHECK API 

01107 

R 

601112 

R 


JhP 

.+3 

/FLAG, 

01110 

R 

703344 

A 


D6R 



01111 

R 

621013 

R 


JMP + 

DSERV 

/NOT ON - EXIT TO MONITOR, 

01112 

R 

206347 

R 


LAC 

ACSAVE 

/ON ^ RESTORE AC, 

01113 

R 

703344 

A 


DDR 



01114 

R 

621013 

R 

/ 

JMP* 

DSERV 

/EXIT, 

nm 

R 

R 

mm 

R 

A 

termin 

m 

SYSERR 


01117 

R 

140021 

R 


DZM 

ERCOOE-^l 


01120 

R 

206450 

R 


LAC 

C-4) 


01121 

R 

040020 

R 


DAC 

SYSERR 


01122 

R 

601104 

R 


JMP 

EXIT 

/GO TO EXIT. 

01123 

R 

620044 

R 

PSERtB 

JMP* 

PPLSW 

/FLAG ON, - POLLING SNITCH. 

01124 

R 

200042 

R 


LAC 

SVSTB 


01125 

R 

506424 

R 


AND 

(40000) 

/REGISTERS, ETC,, CHECK FOR 

01126 

R 

741200 

A 


SNA 


/A select error. 

01 127 

R 

601 150 

R 


JMP 

DSER*3 

/NO, GO TO NEXT OP, 

01130 

R 

602056 

R 


JMP 

ER02 

/YES, FLAG AN ERROR 2, 

01131 

R 

750000 

A 

DSER.6 

CLA 



01132 

R 

707544 

A 


DTXA 



01133 

R 

200042 

R 


LAC 

SVSTB 


01134 

R 

506451 

R 


AND 

C010000) 

/CHECK FOR TIMING ERROR 

01135 

R 

741200 

A 


SNA 



01136 

R 

601142 

R 


JMP 

• *4 


01137 

R 

200003 

R 


LAC 

UQOSWtS 

/CHECK TO SEE IF INHIBITED 

01140 

R 

741100 

A 


SPA 



01141 

R 

601417 

R 


JMP 

FNOBLK+4 

/YES, TRY AGAIN 

01142 

R 

200042 

R 


LAC 

SVSTB 


01143 

R 

506425 

R 


AND 

C100000) 


01144 

R 

741200 

A 


SNA 



01145 

R 

601123 

R 


JMP 

DSER.B 


01146 

R 

206452 

R 


LAC 

C60000) 


01147 

R 

626373 

R 

y 

JMP* 

PULSN2 









/GO TO NEXT OPERATION. 

01150 

R 

200042 

R 

DSER.3 

LAC 

SVSTB 

/CHECK for PARITY ERROR, 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o o 

o o 
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0 U 5 1 

R 

506463 

R 

AND 

C20000) 

/IF SO STOP TRANSPORT 

0iia8 

R 

741200 

A 

SNA 



0U53 

R 

602067 

R 

JMP 

ER04 

/GO TO ERROR 4. 

01154 

R 

707552 

A 

DTRA 


/PARITY ERROR 

01155 

R 

506453 

R 

AND 

C20000) 


01156 

R 

707544 

A 

DTXA 



01157 

R 

602067 

R 

JMP 

ER04 



• EJECT 



PAGE 


12 


DECTAP SRC 


O 







/SELECT NEXT 

HANDLER 



o 

01160 

R 

000000 

A 

7 

SLNXHN 0 


/SELECTS, ON A RANDOM BASIS, 

0 


01161 

R 

200036 

R 

LAC 

HANCNT 




01162 

R 

741200 

A 

SNA 



o 

o 

01163 

R 

602050 

R 

JMP 

ER01 


01164 

R 

101723 

R 

JMS 

RANGEN 

/NEXT HANDLER FROM THOSE 



01165 

R 

506413 

R 

AND 

C7) 

/AVAILABLE, BLKNUM OF NEXT 

o 

o 

01166 

R 

741200 

A 

SNA 


/BLOCK TO BE READ OR WRITTEN 

01167 

R 

601164 

R 

JMP 

SLNXHN+4 

/IN, AND MAX. NUMBER OF 



01170 

R 

040032 

R 

DAC 

CURHAN 

/half blocks to be READ 


o 

01171 

R 

346454 

R 

TAD 

(ACTIVE) 

/OR WRITTEN. 

o 

011/2 

R 

046376 

R 

DAC 

SLN.l^ 




01173 

R 

226376 

R 

LAC* 

SLN. 1 


o 

o 

01174 

R 

741200 

A 

SNA 



01175 

R 

601164 

R 

JMP 

SLNXHN+4 

/handler not available. 



01176 

R 

101723 

R 

JMS 

RANGEN 

/handler available, get 


o 

01177 

R 

506413 

R 

AND 

(7) 

/number OF BLOCKS, 

0 

01200 

R 

346415 

R 

TAD 

cn 




01201 

R 

740001 

A 

CMA 




o 

01202 

R 

346415 

R 

TAD 

Cl) 


o 

01203 

R 

046376 

R 

DAC 

SLN.l 




01204 

R 

777770 

A 

LAW 

-^BUFBLK 



0 

01205 

R 

046377 

R 

DAC 

SLN.2^ 


o 

01206 

R 

146400 

R 

D7M 

SLN,3^# 




01207 

R 

446400 

R 

ISZ 

SLN.3 


o 

0 

01210 

R 

446376 

R 

ISZ 

SLNpl 


01211 

R 

741000 

A 

SKP 





01212 

R 

601215 

R 

JMP 

« +3 


o 

o 

01213 

R 

446377 

R 

ISZ 

SLN.2 



01214 

R 

601207 

R 

JMP 

• ’^5 




01215 

R 

206400 

R 

LAC 

SLN.3 


o 

0 

01216 

R 

040040 

R 

OAC 

NUMBLK 


01217 

R 

200032 

R 

LAC 

CURHAN 



o 

01220 

R 

346455 

R 

TAD 

(BKNUM) 





mM 





u 


01223 

R 

040033 

R 

OAC 

8LKNUM 



o 

01224 

R 

101723 

R 

JMS 

RANGEN 

/GET BLOCK NUMBER TO START. 

0 


01225 

R 

506413 

R 

AND 

(7) 




01226 

R 

346445 

R 

TAP 

C" 1) 


o 

o 

01227 

R 

340033 

R 

TAD 

BLKNUM 


01230 

R 

040033 

R 

DAC 

BLKNUM 




01231 

R 

066376 

R 

DAC* 

SLN.l 



o 

01232 

R 

346456 

R 

TAD 

C-3) 


o 

01233 

R 

740100 

A 

SMA 


/CHECK THAT BLOCK NUM IS 



01234 

R 

601237 

R 

JMP 

• +3 

/BETWEEN 1 AND 1076. 


o 

01235 

R 

205416 

R 

SLNX.l LAC 

C3) 

/IF OUTSIDE RANGE, FORCE 

o 

01236 

R 

601230 

R 

JMP 

. 6 

/IT TO BLOCK 2. 



01237 

R 

340040 

R 

TAD 

NUMBLK 



o 

01240 

R 

346457 

R 

TAD 

C-1070) 


0 

01241 

R 

741100 

A 

SPA 





01242 

R 

621160 

R 

JMP* 

SLNXHN 

/EXIT. 


0 








o 


o O 

o c 
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01243 

R 

750001 

A 

cue 


01244 

R 

340033 

R 

TAD 

BLKNUM 

01245 

R 

740001 

A 

CMA 


01246 

R 

346460 

R 

TAD 

(1073) 

01247 

R 

040040 

R 

DAC 

NUMBLK 

01250 

R 

740300 

A 

SMAiS2A 


01251 

R 

621160 

R 

JMP* 

SUNXHN 

01252 

R 

206415 

R 

LAC 

CD 

01253 

R 

040040 

R 

DAC 

NUMBLK 

01254 

R 

601236 

R 

JMP 

SUNX.l 


.EJECT 



PAG£ 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


H DECTAP SRC 

/HAP SUBROUTINE - ENTRY WITH CURHAN, BLKNUHr AND NUMBlK ALREADY SET, 

/ 

/FIND BLKNUM IN MAP - THEN DETERMINE IF PREVIOUSLY WRITTEN IN PR NOT, 
/IF WRITTEN, READ UP TQ NUMBLK WRITTEN BLOCKS, IF NOT WRITTEN, 

/WRITE UP TO NUMBLK BLOCK WITHOUT OVERLAPPING PREVIOUS WRITE. 


/ 


1235 

R 

000000 

A 

MAPSBR 

0 


/TEMP store,------ 

1256 

R 

200032 

R 


LAC 

CURHAN 

/TEMPI - MAP WORD POINTER 

1257 

R 

101705 

R 


JMS 

MPY32 

/TEMP2 - MAP BIT POINTER U 

1260 

R 

346417 

R 


TAD 

CMAPSTR) 

/TEMP3 - MAP BIT POINTER 2, 

1261 

R 

04007 1 

R 


DAC 

TEMPI 

/TEMP4 - NUMBLK 

1262 

R 

750001 

A 


CLC 


/TEMPS - NUMBER OF BLOCKS 

1263 

R 

340040 

R 


TAD 

NUMBLK 

/TO BE USED IN NEXT OPERATION, 

1264 

R 

740001 

A 


CMA 


/TEMP6 - END OF MAP, 

1265 

R 

040074 

R 


DAC 

TEMP4 

/RDWRT - FLG FOR READ PR WRITE 

1266 

R 

140075 

R 


DZM 

TEMPS 

/AS NEXT OPERATION, 

1267 

R 

777777 

A 


LAW 

- 1 


1270 

R 

040037 

R 


DAC 

RDWRT 


1271 

R 

200033 

R 


LAC 

BLKNUM 

/FIND ENTRY WORD CONTAINING 





/ 



/THIS BLOCK NUMBER, 

1272 

R 

346461 

R 

MAPS, 2 

TAD 

CM 

CM 

E 


1273 

R 

741100 

A 


SPA 



1274 

R 

601277 

R 


JMP 

MAPS.l 


1275 

R 

440071 

R 


ISZ 

TEMPI 


1276 

R 

601272 

R 


JMP 

MAPS, 2 


1277 

R 

346462 

R 

MAPS.l 

TAD 

C23) 

/FOUND WORD, SET REMAINDER 

1300 

R 

740001 

A 


CMA 


/+! AND LOCATE BLOCK BIT 

1301 

R 

346415 

R 


TAD 

Cl) 

/WITHIN WORD, 

1302 

R 

040072 

R 


DAC 

TEMP2 


1303 

R 

777755 

A 


LAW 

-«23 


1304 

R 

040073 

R 


DAC 

TEMP3 


1305 

R 

220071 

R 


LAC* 

TEMPI 

/SCAN FOR THIS BLOCKS SIT, 

1306 

R 

440073 

R 

MAPS, 4 

ISZ 

TEMP3 


1307 

R 

440072 

R 


ISZ 

TEMP2 

/IN THIS MAP WORD. 

1310 

R 

741000 

A 


SKP 



1311 

R 

601316 

R 


JMP 

MAPS, 3 


1312 

R 

745100 

A 


SPAiCLL 



1313 

R 

744002 

A 


STL 



1314 

R 

740010 

A 


RAL 



1315 

R 

601306 

R 


JMP 

MAPS. 4 


1316 

R 

740100 

A 

f^APS,3 

SNA 


/FOUND, CHECK FOR THIS BLOCK 

1317 

R 

601341 

R 


JMP 

MAPS, 9 

/ALREADY WRITTEN IN, 

1320 

R 

140037 

R 

/ 

DZM 

RDWRT 

/previously written, DO A READ, 

1321 

R 

440075 

R 

MAPS. 6 

ISZ 

TEMPS 

/INCREMENT BLOCKS 

1322 

R 

740010 

A 


RAL 



1323 

R 

440074 

R 


ISZ 

TEMP4 


1324 

R 

741000 

A 


SKP 



1325 

R 

601373 

R 


JMP 

MAPS. 5 


1326 

R 

440073 

R 


ISZ 

TEMP3 

/CHECK THAT NUMBLKS WILL 
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01327 

R 

741000 

A 

um 


mm 

g 

01332 

R 

601373 

R 

01333 

R 

601321 

R 

01334 

R 

777756 

A 

01335 

R 

040073 

R 

01336 

R 

440071 

R 

01337 

R 

220071 

R 

01340 

R 

601331 

R 

01341 

R 

440075 

R 

01342 

R 

744002 

A 

01343 

R 

740010 

A 

01344 

R 

440074 

R 

01345 

R 

741000 

A 

01346 

R 

601363 

R 

01347 

R 

440073 

R 

01350 

R 

741000 

A 

01351 

R 

601355 

R 

01352 

R 

741100 

A 

01353 

R 

601366 

R 

01354 

R 

601341 

R 

01355 

R 

060071 

R 

01356 

R 

777756 

A 

01357 

R 

040073 

R 

01360 

R 

440071 

R 

01361 

R 

220071 

R 

01362 

R 

601352 

R 

01363 

R 

440073 

R 

01364 

R 

741000 

A 

01365 

R 

601372 

R 

01366 

R 

745100 

A 

01367 

R 

744002 

A 

01370 

R 

740010 

A 

01371 

R 

601363 

R 

01372 

R 

060071 

R 

01373 

R 

200075 

R 

01374 

R 

040040 

R 

013/5 

R 

740001 

A 

01376 

R 

346415 

R 

01377 

R 

040075 

R 

01400 

R 

777770 

A 

01401 

R 

346445 

R 

01402 

R 

340040 

R 

01403 

R 

740100 

A 

01404 

R 

740040 

A 

01405 

R 

750000 

A 

01406 

R 

346463 

R 

01407 

R 

440075 

R 

01410 

R 

601406 

R 


MAPS14 

SKP 

MAPS, a 


JMP 

MAPS, 5 


JMP 

MAPS, 6 

MAPS, 8 

LAW 

"22 


OAC 

TEMP3 


ISZ 

TEMPI 


LAC* 

TEMPI 


JMP 

MAPS14 

MAPS, 9 

ISZ 

TEMPS 


STL 

RAL 

ISZ 

TEMP4 


SKP 

JMP 

MAPS,/ 


ISZ 

TEMPS 


SKP 

JMP 

MAPSll 

MAPS12 

SPA 



JMP 

MAPS13 


JMP 

MAPS. 9 

MAPSll 

DAC* 

TEMPI 


LAW 

"22 


DAC 

TEMP3 


ISZ 

TEMPI 


LAC* 

TEMPI 


JMP 

MAPS12 

/ 

HAPS. 7 

ISZ 

TEMP3 


SKP 

JMP 

MAPS10 

MAPS13 

SPAiCLL 



STL 

RAL 

JMP 

MAPS, 7 

/ 

MAPS10 

DAC* 

TEMPI 

/ 

MAPS, 5 

LAC 

TEMPS 


DAC 

NUMBLK 


CMA 

TAD 

(1) 


DAC 

TEMPS 


LAW 

"BUFBLK 


TAD 

C-11 


TAD 

NUMBLK 


SMA 

HLT 

CLA 

TAD 

("BLKSr 


ISZ 

TEMPS 


JMP 

.-2 


/NOT 0E EXCEEDED. 
/NOT ON EXIT, 


/END OF WORD, GET NEXT WORD. 

/GET NEXT WORD 

/CONTINUE. 

/INCRE, BLOCK AND CHECK 


/THAT NUM0LK NOT EXCEEDED, 


/written area, done. 

/NOT END CONTINUE, 

/END, REFMACE THIS ENTRY 


/GET NEXT WORD, 


/RECTIFY REHAINDER OF 
/WORD 


/PUT IT AWAY 

/SAVE FINAL NUMBER OF 
/BLOCKS AND SET UP 


o o 

PAGE 16 DECTAP SRC 

o o 

01411 R 040035 R DAC DECWC /SAVE THAT VALUE IN WC, 

01412 R 621255 R JMP* MAPS0R /EXIT. 

O .EJECT O 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 


o 


o 
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/SEARCH 

ROUTINE 

, LOCATES TAPE 

WITH THIS BLOCK NUMBER READY TO 





/WRITE 

OR READ 

IN THE FORWARD 

DIRECTION, 

MH13 

R 

000000 

A 

f 

FNDBLK 

0 



01414 

R 

750001 

A 


CLC 



01415 

R 

340033 

R 


TAP 

BLKNUM 


01416 

R 

040033 

R 


DAC 

BLKNUM 


01417 

R 

102016 

R 


JNS 

HOLD 


01420 

R 

206464 

R 


UAC 

(BLOCK) 

/SET SLOCK LQC IN CA TO 

01421 

R 

040051 

R 


DAC 

INCA 

/GET BLOCK NUMBER, 

01422 

R 

060070 

R 


DAC* 

SYSCA 


01423 

R 

140050 

R 


OZ0 

INWC 


01424 

R 

160067 

R 


DZM* 

SYSWC 

/CLEAR WC 

01425 

R 

206465 

R 


LAC 

CHANNUM) 

/GET CURRENT TRANSPORT NO, 

01426 

R 

340032 

R 


TAO 

CURHAN 

/AND assemble SEARCH COMMAND, 

01427 

R 

046366 

R 


PAC 

FND.l^l 


01430 

R 

226366 

R 


LAC* 

FND.l 


01431 

R 

340064 

R 


TAD 

SEARCH 


01432 

R 

707545 

A 


DTLA 


/LOAD 

01433 

R 

206466 

R 


LAC 

CFNDB.n 

/SET SWITCH 

01434 

R 

040043 

R 


DAC 

DISTSW 

/AND EXIT, 

0 1435 

R 

601104 

R 

/ 

JMP 

EXIT 


01436 

R 

101712 

R 

f 

FNoaa 

JNS 

CHKBLK 

/CHECK CURRENT BLOCK AGAINST 

01437 

R 

540033 

R 


SAD 

BLKNUM 


01440 

R 

601517 

R 


JMP 

FNDB«7 

/THIS IS IT, 

01441 

R 

750001 

A 


CLC 


/NOT IT. 

01442 

R 

340033 

R 


TAD 

BLKNUM 

/CALCULATE DISTANCE TO 

01443 

R 

740001 

A 


CMA 


/BLOCK AND DIRECTION. 

01444 

R 

340034 

R 


TAD 

BLOCK 


01445 

R 

740100 

A 


SMA 



01446 

R 

601461 

R 


JMP 

FNDB.3 

/REVERSE DIRECTION. 

01447 

R 

040050 

R 


DAC 

INWC 

/CONTINUE IN THIS DIRECTION, 

01450 

R 

060067 

R 


DAC* 

SYSWC 

/SET WC AND CHANGE TP 

01451 

R 

206467 

R 


LAC 

(010200) 

/CONTINUOUS MODE, 

01452 

R 

707544 

A 


DTXA 



01453 

R 

2.06470 

R 


LAC 

CFNDB,2) 


01454 

R 

040043 

R 


DAC 

DISTSW 


01455 

R 

601104 

R 


JMP 

EXIT 


01456 

R 

206467 

R 

FN0B,2 

LAC 

(010200) 

/CHANGE TO NORMAL MODE, 

01457 

R 

707544 

A 


DTXA 



01460 

R 

601436 

R 


JMP 

FNDB*1 


01461 

R 

206471 

R 

FN0B.3 

LAC 

(040200) 

/REVERSE DIRECTION 

01462 

R 

707544 

A 


DTXA 



01463 

R 

206472 

R 


LAC 

CFNDB.4) 


01464 

R 

040043 

R 


DAC 

DISTSW 


01465 

R 

601104 

R 


JMP 

EXIT 


0 1466 

R 

101712 

R 

FNDB.4 

JMS 

CHKBLK 

/CHECK POSITION GOING IN 

01467 

R 

750001 

A 


CLC 



01470 

R 

340033 

R 


TAD 

BLKNUM 

/REVERSE DIRECTION, 
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01471 

R 

740001 

A 


CMA 



01472 

R 

340034 

R 


TAD 

BLOCK 


01473 

R 

346473 

R 


TAD 

C2) 


01474 

R 

740300 

A 


SZAiSMA 



01475 

R 

741000 

A 


SKP 



01476 

R 

601515 

R 


JMP 

FN0B.6 

/GO FORWARD NOW 

01477 

R 

740001 

A 


CHA 


/CONTINUE IN BACKWARD 

01500 

R 

346415 

R 


TAD 

CD 

/MODE FOR DELTA BLOCKS 

01501 

R 

040050 

R 


PAC 

INWC 


01502 

R 

060067 

R 


PAC* 

SYSWC 


01503 

R 

206467 

R 


LAC 

C010200) 

/SET CONTINUOUS, 

01504 

R 

707544 

A 


DTKA 



01505 

R 

206474 

R 


LAC 

CFND8,5) 


01506 

R 

040043 

R 


DAC 

DISTSW 


01507 

R 

601104 

R 

j 

JMP 

EXIT 


01510 

R 

206475 

R 

/ 

FNDB.5 

LAC 

C050200) 

/REVERSE DIRECTION AND SET 

01511 

R 

707544 

A 


DTXA 


/normal NODE, 

01512 

R 

206466 

R 


LAC 

CFNDB.n 

/SET FORWARD LOOK 

01513 

R 

040043 

R 


DAC 

DISTSW 


01514 

R 

60U04 

R 

J 

JMP 

EXIT 


01515 

R 

206471 

R 

f 

FN0B.6 

LAC 

C040200) 

/CHANGE TP FORWARD 

01516 

R 

601511 

R 


JMP 

ENDS. 5+1 


01517 

R 

206431 

R 

FN0B.7 

LAC 

C000200) 


01520 

R 

707544 

A 


PTXA 



01521 

R 

200034 

R 


LAC 

BLOCK 


01522 

R 

540033 

R 


SAD 

BLKNUM 


01523 

R 

741000 

A 


SKP 



01524 

R 

601417 

R 


JMP 

FNDBLK+4 


01525 

R 

440033 

R 


ISZ 

BLKNUM 


01526 

R 

200037 

R 


LAC 

RDWRT 


01527 

R 

740200 

A 


SZA 



01530 

R 

101613 

R 


JMS 

SUMCHK 


01531 

R 

707601 

A 


OTOF 



01532 

R 

741000 

A 


SKP 



01533 

R 

601543 

R 


JMP 

FND8.9 


01534 

R 

707561 

A 


DTEF 



01535 

R 

601531 

R 


JMP 

y 4 


01536 

R 

707552 

A 


DTRA 



01537 

R 

040041 

R 


DAC 

SVSTA 


01540 

R 

707572 

A 


DTR8 



01541 

R 

040042 

R 


DAC 

SYSTB 


01542 

R 

601131 

R 


JMP 

DSER.6 


01543 

R 

200034 

R 

FNDB.9 

LAC 

BLOCK 


01544 

R 

540033 

R 


SAD 

BLKNUM 


01545 

R 

741000 

A 


SKP 



01546 

R 

601414 

R 


JMP 

FNDBLK+l 


01547 

R 

200035 

R 


! 

LAC 

OECWC 


01550 

R 

040050 

R 


DAC 

INWC 

/SET WORD COUNT, 

01551 

R 

060067 

R 


DAC* 

SYSWC 




o 
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01552 

R 

3^6476 

R 

TAD 

C400U 

o 

um § mm ^ 

m 


01555 

R 

206477 

R 

LAC 

CBUF"U 

o 

01556 

R 

040051 

R 

DAC 

INCA 

01557 

R 

060070 

R 

D AC* 

SYSCA 


01560 

R 

200037 

R 

LAC 

RDWRT 


01561 

R 

741200 

A 

SNA 


o 

01562 

R 

601565 

R 

JMP 

• +3 


01563 

R 

206500 

R 

LAC 

(015200) 


01564 

R 

741000 

A 

SKP 


o 

01565 

R 

206501 

R 

LAC 

C013200) 


01566 

R 

707544 

A 

DTXA 



01567 

R 

206502 

R 

LAC 

CFND8,8) 

o 

01570 

R 

040043 

R 

DAC 

DISTSW 

01571 

R 

601105 

R 

JNP 

EXn+1 

o 

01572 

R 

707552 

A 

FND0,8 DTRA 


01573 

R 

506453 

R 

AND 

C20000) 


01574 

R 

707544 

A 

DTXA 


o 

01575 

R 

750001 

A 

CLC 


01576 

R 

340050 

R 

TAD 

INWC 


01577 

R 

740001 

A 

CMA 


o 

01600 

R 

340051 

R 

TAP 

INCA 

01601 

R 

740001 

A 

CMA 



01602 

R 

346415 

R 

TAD 

CD 

o 

01603 

R 

360070 

R 

TAD* 

SYSCA 

01604 

R 

740200 

A 

S2A 



01605 

R 

626372 

R 

JMP* 

POLSWl 

o 

01606 

R 

200037 

R 

LAC 

RDWRT 

01607 

R 

741200 

A 

SNA 



01610 

R 

101676 

R 

JMS 

CHKSUM 

o 

01611 

R 

140045 

R 

OZM 

ERRFLG 

01612 

R 

621413 

R 

JMP* 

FND8LK 


.EJECT 

o 

o 

o 

o 

o 

o 


o 


o 


o 



o 


o 


o 

/AND BUFFER START. 

o 

/READ OR WRITE. 


/READ, 

o 

/WRITE. 

o 

/CHANGE MODE AND PERFORM 

/function. 

o 


o 

o 

/WORD COUNT 

o 

o 

/UNEQUAL - FLAG ER03. 

O 

/CLEAR ERROR FLAG O 

/EXIT, 

O 

O 

O 

O 

O 

O 

O 

o 


o 
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/SUMCHECKING SUBROUTINE, 
/ 


01613 

R 

000000 

A 

SUNCHK 

0 


01614 

R 

206503 

R 


LAC 

CSUMC.n 

01615 

R 

046402 

R 


OAC 

SUMSW^^ 

01616 

R 

206504 

R 


LAC 

CSUMC,6) 

iliy 





E^6 


01621 

R 

046401 

R 

SUMC,2 

DAC 

SUMEXT# 

01622 

R 

750001 

A 


CLC 


01623 

R 

340040 

R 


TAD 

NUMBLK 

01624 

R 

740001 

A 


CMA 


01625 

R 

046404 

R 


DAC 

SUM.l#^ 

01626 

R 

206433 

R 


LAC 

CBUF) 

01627 

R 

046405 

R 


DAC 

SUH.2^^ 

01630 

R 

777402 

A 


LAW 

-376 

01631 

R 

046406 

R 


DAC 

SUM,3^? 

01632 

R 

200033 

R 


LAC 

BLKNUM 

01633 

R 

046407 

R 


DAC 

SUM, 4# 

01634 

R 

626403 

R 

SUNC,3 

JMP* 

SUMSWl 

01635 

R 

066405 

R 

SUMC.6 

DAC* 

SUM, 2 

01636 

R 

446405 

R 


ISZ 

SUM. 2 

01637 

R 

366405 

R 


TAD* 

SUM, 2 

01640 

R 

446406 

R 


ISZ 

SUM, 3 

01641 

R 

601636 

R 


JMP 

, *"3 

01642 

R 

626402 

R 


JMP* 

SUMSW 

01643 

R 

446405 

R 

SUMC,1 

ISZ 

SUM. 2 

01644 

R 

066405 

R 


DAC* 

SUM. 2 

01646 

R 

446407 

R 

SUMC,5 

ISZ 

SUM, 4 

01646 

R 

446404 

R 


ISZ 

SUM.l 

01647 

R 

741000 

A 


SKP 


01650 

R 

626401 

R 


JNP* 

SUMEXT 

01651 

R 

777402 

A 


LAW 

-376 

01652 

R 

(;i46406 

R 


DAC 

SUM, 3 

01653 

R 

446406 

R 


ISZ 

SUM. 2 

01654 

R 

206407 

R 


LAC 

SUM, 4 

01655 

R 

601634 

R 


JHP 

SUMC.3 


,EJECT 


/ENTRANCE FOR GEN, THE SUN CHECK 
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R1656 

R 

446405 

R 

SUMC,4 

ISZ 

SUN, 2 

01657 

R 

740001 

A 


CMA 


01660 

R 

346415 

R 


TAD 

cn 

01661 

R 

366405 

R 


TAD* 

SUM, 2 

01662 

R 

046410 

R 


DAC 

SUM, 5^ 

01663 

R 

740200 

A 


SZA 


01664 

R 

602126 

R 


JMP 

ER07 

01665 

R 

601645 

R 

/ 

JMP 

SUMC.5 

01666 

R 

740001 

A 

f 

SUMC,7 

CMA 


01667 

R 

346415 

R 


TAD 

cn 

01670 

R 

366405 

R 


TAP* 

SUM, 2 

im 


mm 

i 


e^s 

SUM. 5 

01673 

R 

602125 

R 


JMP 

ER07 

01674 

R 

226405 

R 


LAC* 

SUM,?. 

01676 

R 

601636 

R 


JMP 

SUMC,6+1 

01676 

R 

000000 

A 

CHKSUM 

0 


01677 

R 

206505 

R 


LAC 

CSUMC.4 

01700 

R 

046402 

R 


DAC 

SUMSW 

01701 

R 

206506 

R 


LAC 

CSUMC,7 

01702 

R 

046403 

R 


OAC 

SUMSWl 

01703 

R 

201676 

R 


LAC 

CHKSUM 

01704 

R 

601621 

R 


JMP 

SUMC.2 


/MULTIPLY ROUTINE. 
/ 


01705 

R 

000000 

A 

MPY32 

0 


01706 

R 

744010 

A 


RCL 


01707 

R 

742010 

A 


RTL 


01710 

R 

742010 

A 


RTL 


01711 

R 

621705 

R 


JMP* 

MPY32 

01712 

R 

000000 

A 

CHK8LK 

0 


01713 

R 

200034 

R 


LAC 

BLOCK 

01714 

R 

506507 

R 


AND 

C7777) 

01715 

R 

040034 

R 


DAC 

BLOCK 

01716 

R 

346510 

R 


TAD 

C’^1102) 

01717 

R 

740100 

A 


SNA 


01720 

R 

602100 

R 


JMP 

ER06 

01721 

R 

200034 

R 


LAC 

BLOCK 

01722 

R 

621712 

R 


JMP* 

CHK6LK 


• EJECT 
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/RANDOM NUMBER GENERATOR ROUTINE 
/ 


o 

01723 

R 

000000 

A 

RANGEN 

0 



01724 

R 

201761 

R 


LAC 

RANDEX 


01725 

R 

3 4 6 5 1 1 

R 


TAD 

C-RANTaL-10) 

o 

01726 

R 

741100 

A 


SPA 



01727 

R 

601737 

R 


JMP 

RANTAD^-1 


01730 

R 

206512 

R 


LAC 

CRANTBU 

o 

01731 

R 

041761 

R 


OAC 

RANDEX 

01732 

R 

201760 

R 


LAC 

RANCQN 


01733 

R 

745100 

A 


SPAiCLL 


o 

01734 

R 

744002 

A 


STL 



01735 

R 

740010 

A 


RAL 



01736 

R 

041760 

R 


DAC 

RANCON 

o 

01737 

R 

221761 

R 


LAC* 

RANDEX 

o 

01740 

R 

341760 

R 

/ 

RANTAD 

TAD 

RANCON 

01741 

R 

061761 

R 


DAC* 

RANDEX 


01742 

R 

441757 

R 


ISZ 

RANCNT 


01743 

R 

601750 

R 


JMP 

,+5 

o 

01744 

R 

366427 

R 


TAD* 

C0) 

01745 

R 

061761 

R 


DAC* 

RANDEX 


01746 

R 

777750 

A 


LAW 

-»30 

o 

01747 

R 

041757 

R 


DAC 

RANCNT 

01750 

R 

201756 

R 


LAC 

RANSAV 

o 

01751 

R 

740020 

A 


RAR 


01752 

R 

361761 

R 


TAD* 

RANDEX 

01753 

R 

04 1 756 

R 


DAC 

RANSAV 


01754 

R 

441761 

R 


ISZ 

RANDEX 

o 

01755 

R 

621723 

R 


JMP* 

RANGEN 

01756 

R 

000000 

A 

RANSAV 

0 


o 

01757 

R 

777750 

A 

RANCNT 

7 

fl»30 


01760 

R 

123456 

A 

RANCQN 

123456 



01761 

R 

001772 

R 

RANDEX 

RANTBL+10 

o 

01762 

R 

654321 

A 

RANTBl 

654321 


01763 

R 

361416 

A 


361416 



01764 

R 

055363 

A 


055363 


o 

01765 

R 

546060 

A 


546060 


01766 

R 

243035 

A 


243035 



01767 

R 

762572 

A 


762572 


o 

01770 

R 

453237 

A 


453237 


01771 

R 

150214 

A 


150214 

.EJECT 




o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


( ') 

o 
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/6UPFER 

/ 

RANDOM 

DATA GENERATION ROUTINE. 

CJ 

o 

o 

01772 

R 

000000 A 

/ 

BUFGEN 

0 


o 

01773 

R 

777774 A 


LAW 

•» 4 


01774 

R 

046351 R 


DAC 

0UF. Ifif 


o 

01775 

R 

101723 R 

BUFG,1 

JMS 

RAN6EN 

o 


01776 

R 

741200 A 


SNA 



01777 

R 

601775 R 


JMP 

BUFG.l 


o 

02000 

R 

066352 R 


DAC* 

BUF,2# 

o 

02001 

R 

446352 R 


I3Z 

BUF.2 


02002 

R 

446353 R 


ISZ 

BUF,3# 


o 

02003 

R 

741000 A 


SKP 


o 

02004 

R 

102010 R 


JMsS 

RESBUF 



02005 

R 

446351 R 


ISZ 

BUF.l 


o 

02006 

R 

601775 R 


JMP 

BUFG.l 

o 

02007 

R 

621772 R 


JMP* 

BUFGEN 

o 

02010 

R 

000000 A 

/ 

RESBUF 

0 


o 

02011 

R 

774000 A 


LAW 

-BUFSIZ 



02012 

R 

046353 R 


DAC 

BUF,3 


0 

02013 

R 

206433 R 


LAC 

CBUF) 

o 

02014 

R 

046352 R 


DAC 

8UF.2 


02015 

R 

622010 R 


JMP* 

RESBUF 


o 

02016 

R 

000000 A 

HOLD 

0 


o 


02017 

R 

750004 A 


LAS 



o 

02020 

R 

506473 R 


AND 

C2) 

o 


02021 

R 

741200 A 


SNA 




02022 

R 

622016 R 


JMP* 

HOLD 


0 

02023 

R 

102025 R 


JMS 

BREAK 

o 

02024 

R 

602017 R 

i 

JMP 

» *^5 


o 

02025 

R 

000000 A 

/ 

BREAK 

0 


o 

02026 

R 

046350 R 


DAC 

BRKAC^ 


02027 

R 

750010 A 


GLK 



o 

02030 

R 

046367 R 


DAC 

LINK^i 

o 


02031 

R 

200020 R 


LAC 

SYSERR 


02032 

R 

741200 A 


SNA 



o 

02033 

R 

602036 R 


JMP 

• +3 

o 

02034 

R 

777776 A 


LAW 

"*2 


02035 

R 

602037 R 


JMP 

• +2 


o 

02036 

R 

777773 A 


LAW 

<« 5 

o 

02037 

R 

040020 R 


DAC 

SYSERR 


02040 

R 

777777 A 


LAW 

"• 1 


o 

02041 

R 

046362 R 


DAC 

DSTSWl 

0 

02042 

R 

601105 R 


JMP 

EXIT+1 

o 

02043 

R 

146362 R 

y 

BREAKl 

DZM 

DSTSWl 

o 

02044 

R 

206367 R 


LAC 

LINK 


02045 

R 

740020 A 


RAR 



o 

02046 

R 

206350 R 


LAC 

BRKAC 

o 

02047 

R 

622025 R 


JMP* 

BREAK 


.EJECT 

O O 


O 


o 


o 



0 









O 

o 
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o 

02050 

R 

206415 

R 

ER01 

LAC 

Cl) 

/ERROR 1 - - NO MORE HANDLERS 


02051 

R 

102262 

R 


JliS 

RESPUT 

/AVAILABLE* 


o 

02052 

R 

777777 

A 


LAW 

««« 1 


o 

02053 

R 

046361 

R 


DAC 

DONE 


o 

02054 

R 

102306 

R 

/ 

JMS 

ENDPUT 


o 

02055 

R 

601 115 

R 


JMP 

TERHIN 


o 

02056 

R 

206473 

R 

ER02 

LAC 

C2) 

/select error - DELETE 

o 

02057 

R 

102146 

R 


JHS 

ERPUT 

/HANDLER 

o 

02060 

R 

602242 

R 

/ 

JMP 

DELHAN 


o 

02061 

R 

707552 

A 

ER03 

DTRA 


/WORD COUNT - CURRENT ADDRESS 


02062 

R 

506453 

R 


AND 

(20000) 



o 

02063 

R 

707544 

A 


DTXA 



o 

02064 

R 

206416 

R 


LAC 

C3) 



02065 

R 

102146 

R 


JMS 

ERPUT 

/ERROR AFTER OPERATION, 


o 

02066 

R 

602216 

R 

/ 

JMP 

CHKFLG 


c 

o 

02067 

02070 


rM 

g 

f 

ER04 


WA) 

• 

o 

02071 

R 

740200 

A 


SZA 




02072 

R 

602102 

R 


JMP 

PARERR 

/PARITY ERROR 


u 

02073 

R 

206513 

R 


LAC 

C4) 

/OTHER STATUS B ERRORS, 

o 


02074 

R 

102146 

R 


JMS 

ERPUT 




02075 

R 

602216 

R 


JMP 

CHKFLG 



o 

02076 

R 

206514 

R 

/ 

ER05 

LAC 

C5) 

/API FLAG ERROR, 

o 

o 

02077 

R 

602051 

R 

/ 

JMP 

ER01+1 


o 

02100 

R 

206515 

R 

ER06 

LAC 

ca) 




02101 

R 

602P^74 

R 


JMP 

» "S 



o 






• EJECT 



o 

o 









o 

o 









o 

o 









0 

0 









o 

o 









o 

o 









o 

o 









o 

o 









o 

o 









o 
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02102 

R 

446365 

R 

PARERR 

ISZ 

FIRST 

02103 

R 

602123 

R 


JMP 

PARERl 

02104 

R 

777773 

A 


LAW 

■»*6 

@ii0§ 

R 


R 


m 

?mm 

02107 

R 

101413 

R 


JMS 

/ 

FND0LK 

02110 

R 

446370 

R 

PARER2 

ISZ 

PARCNT 

02111 

R 

602107 

R 


JMP 

.-2 

02112 

R 

777777 

A 


LAW 

M 1 

02113 

R 

046365 

R 


DAC 

FIRST 

02114 

R 

206371 

R 


LAC 

PARTOT 

02115 

R 

744020 

A 


RCR 


02116 

R 

740020 

A 


RAR 


02117 

R 

742020 

A 


RTR 


02120 

R 

246516 

R 


XOR 

C10) 

02121 

R 

1,02146 

R 


JMS 

ERPUT 

02122 

R 

601010 

R 


JMP 

DCTAPl+3 

02123 

R 

446371 

R 

PAR6R1 

ISZ 

PARTOT 

02124 

R 

602110 

R 


JMP 

PARER2 

02125 

R 

206413 

R 

ER07 

LAC 

C7) 

02126 

R 

102262 

R 


JMS 

RESPUT 

02127 

R 

200041 

R 


LAC 

SVSTA 

02130 

R 

102301 

R 


JMS 

PUT 

02131 

R 

200034 

R 


LAC 

BLOCK 

02132 

R 

102301 

R 


JMS 

PUT 

02133 

R 

200040 

R 


LAC 

NUMBLK 

02134 

R 

1,02301 

R 


JMS 

PUT 

02135 

R 

750001 

A 


CLC 


02136 

R 

346433 

R 


TAD 

CBUF) 

02137 

R 

740001 

A 


CMA 


02140 

R 

346405 

R 


TAP 

SUM. 2 

02141 

R 

102301 

R 


JMS 

PUT 

02142 

R 

206410 

R 


LAC 

SUM. 5 

02143 

R 

102301 

R 


JMS 

PUT 

02144 

R 

102306 

R 


JMS 

ENDPUT 

02145 

R 

602216 

R 


JMP 

CHKFLG 


EJECT 
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02146 

R 

000000 

A 

ERPUT 

0 


/PUT AWAY ERROR PARAMETERS 

02147 

R 

102262 

R 


JMS 

RESPUT 

/EOR MONITOR AFTER ERROR, 

02160 

R 

200041 

R 


LAC 

SVSTA 


02151 

R 

102301 

R 


JMS 

PUT 


02152 

R 

200042 

R 


LAC 

5VSTB 

/STATUS B REG, 

02153 

R 

102301 

R 


JMS 

PUT 


02154 

R 

206363 

R 


LAC 

ERN.l#^ 


02155 

R 

546515 

R 


SAP 

C6) 


02156 

R 

741000 

A 


SKP 



02157 

R 

602163 

R 


JMP 

• + 4 


02160 

R 

200034 

R 

ERPU,2 

LAC 

BLOCK 


02161 

R 

102301 

R 


JMS 

PUT 


02162 

R 

602214 

R 


JMP 

ERPU,1 


02163 

R 

200042 

R 


LAC 

SVSTS 


02164 

R 

506424 

R 


AND 

C40000) 


02165 

R 

740200 

A 


SZA 



02166 

R 

602214 

R 


JMP 

ERPUa 


02167 

R 

200050 

R 


LAC 

INWC 

/BEGINNING WORD COUNT, 

02170 

R 

102301 

R 


JMS 

PUT 


02171 

R 

220067 

R 


LAC* 

SYSWC 

/ENDING WORD COUNT, 

02172 

R 

102301 

R 


JMS 

PUT 


02173 

R 

200051 

R 


LAC 

INCA 

/BEGINNING CURRENT AOOHESS, 

02174 

R 

102301 

R 


JMS 

PUT 


02175 

R 

220070 

R 


LAC* 

SYSCA 

/ENDING CURRENT ADDRESS, 

02176 

R 

046364 

R 


DAC 



02177 

R 

102301 

R 


JMS 

PUT 


02200 

R 

206363 

R 


LAC 

ERN.l 


02201 

R 

546513 

R 


SAD 

C4) 


02202 

R 

602160 

R 


JMP 

ERPU,2 


02203 

R 

206363 

R 


LAC 

ERN.l 


02204 

R 

546416 

R 


SAD 

C3) 


02205 

R 

602214 

R 


JMP 

ERPUa 


02206 

R 

200041 

R 


LAC 

SVSTA 


02207 

R 

506517 

R 


AND 

C10003 


02210 

R 

741200 

A 


SNA 



02211 

R 

602214 

R 


JMP 

,*3 


02212 

R 

226364 

R 


LAC* 

ERP.l 

/FIRST WORD PUTAWAY BY TRANS, 

02213 

R 

102301 

R 


JMS 

PUT 


02214 

R 

102306 

R 

ERPU.l 

JMS 

ENOPUT 

/CLOSE ERROR FILE, 

02215 

R 

622146 

R 


JMP* 

ERPUT 
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DECTAP SRC 


02216 

R 

200045 

R 

CHKFLG 

LAC 

ERRFLG 

/CHECK DOUBLE ERROR FLAG 

02217 

R 

740200 

A 


SZA 


/FOR THIS TRANSPORT. 

02220 

R 

602242 

R 


JHP 

DELHAN 

/ON - DELETE HIM. 

02221 

R 

777777 

A 


LAW 

1 

/OFF - TRY THE OPERATION AGA 

02222 

R 

040045 

R 


DAC 

ERRFLG 


02223 

R 

200042 

R 


LAC 

SVSTS 


02224 

R 

306425 

R 


AND 

(100000) 


02225 

R 

741200 

A 


SNA 



02226 

R 

601417 

R 


JMP 

FNOBLK+4 


02227 

R 

200043 

R 


LAC 

DISTSW 


02230 

R 

546466 

R 


SAD 

(FNDBtl) 


02231 

R 

741000 

A 


SKP 



02232 

R 

602235 

R 


JMP 

• +3 


02233 

R 

206452 

R 


LAC 

(60000) 


02234 

R 

601462 

R 


JMP’ 

FND0,3+1 


02235 

R 

546470 

R 


SAD 

(FND8.2) 


02236 

R 

741000 

A 


SKP 



02237 

R 

601417 

R 


JMP 

FND8LKt4 


02240 

R 

206520 

R 


LAC 

(70000) 


02241 

R 

601462 

R 

/ 

JMP 

FNDB.3+1 


I'm 


200032 

346454 

1 

f 

PELHAN 


Wc^fv^E) 


02244 

R 

046354 

R 


DAC 

DEL.l^ 


02245 

R 

166354 

R 


DZM^ 

D£L*1 


02246 

R 

140045 

R 


PZM 

ERRFLG 


02247 

R 

750001 

A 


CLC 


/DECREMENT ON LINE 

02250 

R 

340036 

R 


TAD 

HANCNT 

/handler COUNT AND IF 

02251 

R 

040036 

R 


DAC 

HANCNT 

/ZERO, FLAG AN ERROR 1. 

02252 

R 

741100 

A 


SPA 



02253 

R 

602256 

R 


JMP 

• ’♦■3 


02254 

R 

740200 

A 


SZA 



02255 

R 

601005 

R 


JMP 

DCTAPl 

/IF NOT, SELECT ANOTHER, 

02256 

R 

707552 

A 


DTRA 



02257 

R 

506453 

R 


AND 

(20000) 


02260 

R 

707544 

A 


OTXA 



02261 

R 

602050 

R 


JMP 

ER01 
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PECTAP SRC 


02262 

R 

000000 

A • 

RESPUT 

0 


/RESET ERROR PUTAWAY ROUTINES 

02263 

R 

046363 

R 


DAC 

ERN,lf? 

/SAVE ERROR NUMBER 

02264 

R 

200020 

R 


LAC 

SYSERR 

/CHECK FOR PREVIOUS ERROR, 

02265 

R 

740200 

A 


SZA 



02266 

R 

602273 

R 


J0P 

PUTS,! 

/YES, SAVE THIS ONE, 

02267 

R 

206363 

R 


LAC 

ERN.l 

/NO, SET UP ERROR IN OUTPUT 

02270 

R 

040022 

R 


DAC 

ERCOOE 

/BUFFER 

02271 

R 

206521 

R 


LAC 

CERCODE+n 


02272 

R 

602276 

R 


JHP 

PUTS, 2 


02273 

R 

206363 

R 

PUTS,! 

LAC 

ERN.l 

/IN SAVE AREA, 

02274 

R 

040054 

R 


DAC 

SAVERR 


02275 

R 

206522 

R 


LAC 

CSAVERR+n 


02276 

R 

046374 

R 

PUTS, 2 

DAC 

PUT.l#? 


02277 

R 

146375 

R 


DZM 

PUT,2« 


02300 

R 

622262 

R 


JHP* 

RESPUT 


02301 

R 

000000 

A 

PUT 

0 


/ITEM PUTAWAY ROUTINE, 

02302 

R 

066374 

R 


DAC* 

PUT.l 

/SET UP BY RESPUT, 

02303 

R 

446374 

R 


ISZ 

pur.i 


02304 

R 

446375 

R 


isz 

PUT, 2 


02305 

R 

622301 

R 


JHP* 

PUT 


02306 

R 

000000 

A 

ENDPUT 

0 


/CLOSE ERROR OUTPUT 

02307 

R 

446375 

R 


ISZ 

PUT, 2 


02310 

R 

200020 

R 


LAC 

SYSERR 

/CHECK FOR SECOND ERROR, 

0231 1 

R 

740200 

A 


SZA 


/YES 

02312 

R 

602332 

R 


JHP 

PUTS, 3 

02313 

R 

206375 

R 


LAC 

PUT, 2 

/NO, PUTAWAY NUMBER OF 

02314 

R 

740001 

A 


CHA 


/PARAMETERS, 

02315 

R 

346415 

R 


TAD 

CD 


02316 

R 

040021 

R 


DAC 

ERCOPE-1 


02317 

R 

7401P)0 

A 


SMA 



02320 

R 

740040 

A 


HLT 



02321 

R 

206361 

R 


LAC 

DUNE 


02322 

R 

741200 

A 


SNA 



02323 

R 

602327 

R 


JHP 

, +4 


02324 

R 

777774 

A 


LAW 

•* 4 


02325 

R 

040020 

R 


DAC 

SYSERR 


02326 

R 

601104 

R 


JHP 

EXIT 


02327 

R 

777777 

A 


LAW 

"• 1 


02330 

R 

040020 

R 


DAC 

SYSERR 


02331 

R 

622306 

R 


JHP* 

ENDPUT 

/EXIT. 

02332 

R 

206375 

R 

PUTS, 3 

LAC 

PUT. 2 

/PUT NUMBER OF PARAMETERS 

02333 

R 

740001 

A 


CHA 


/IN SAVE AREA, 

02334 

R 

346415 

R 


TAD 

Cl) 


02335 

R 

040053 

R 


DAC 

SAVERR^l 


02336 

R 

777777 

A 


LAW 

”1 


02337 

R 

040047 

R 


DAC 

MOVERR 

/SET MOVE ERROR FLAG, 

02340 

R 

206523 

R 


LAC 

C*"2) 


02341 

R 

040020 

R 


DAC 

SYSERR 


02342 

R 

707552 

A 


DTRA 



02343 

R 

506453 

R 


AND 

C20000) 


02344 

R 

707544 

A 


DTXA 



02345 

R 

601104 

R 


JHP 

EXIT 

/EXIT WITHOUT I/O START 


/ 
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SUOCK BUFSIZ+1 
EJECT 


o 


o 
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DECTAP ; 

SRC 

o 



000000 

R 



064X3 

R 

000007 

A 

*L 

o 

064X4 

H 

377777 

A 


064X5 

R 

000001 

A 

*L 


064X6 

R 

000003 

A 

*L 

0 

064X7 

R 

000X20 

R 


06420 

R 

000521 

R 

*L 


06421 

R 

0001X1 

R 


o 

06422 

R 

000753 

R 


06423 

R 

00X462 

R 

★ L 


06424 

R 

040000 

A 


o 

06425 

R 

100000 

A 


06426 

R 

000300 

A 



06427 

R 

000000 

A 

★ L 

o 

06430 

R 

000100 

A 

*L 

0643X 

R 

000200 

A 

*L 


06432 

R 

626401 

R 

*1 

o 

06433 

R 

002346 

R 


06434 

R 

773777 

A 

*L 


06435 

R 

004000 

A 

*U 

o 

06436 

R 

007400 

A 

★L 


06437 

R 

776705 

A 

*L 


06440 

R 

001124 

R 

*L 


06441 

R 

002061 

R 


06442 

R 

002067 

R 



06443 

R 

777773 

A 

♦U 

o 

06444 

R 

400000 

A 


06445 

R 

777777 

A 



06446 

R 

000053 

R 

*L 

o 

06447 

R 

000021 

R 


06450 

R 

777774 

A 



06451 

R 

010000 

A 

*L 

o 

06452 

R 

060000 

A 

★u 

06453 

R 

020000 

A 

*L 


06454 

R 

000520 

R 


o 

06455 

R 

000U0 

R 


06456 

R 

777775 

A 


o 

06457 

R 

776710 

A 



06460 

R 

001073 

A 

*U 


0646X 

R 

777756 

A 

*U 

o 

06462 

R 

000023 

A 

*L 

06463 

R 

777400 

A 

★ U 


06464 

R 

000034 

R 

★ L 

o 

06465 

R 

000100 

R 


06466 

R 

001436 

R 

*U 


06467 

R 

010200 

A 

*U 

o 

06470 

R 

001456 

R 

*L 

06471 

R 

040200 

A 

*L 


06472 

R 

001466 

R 


o 

06473 

R 

000002 

A 


06474 

R 

001510 

R 

★ U 


06475 

R 

050200 

A 


o 

06476 

R 

004001 

A 

*L 


o 


uoosw 


o 
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DECTAP 

SRC 


06477 

R 

002345 

R 

★1 


06500 

R 

015200 

A 



06501 

R 

013200 

A 

*L 


06502 

R 

001572 

R 

★ 1 


06503 

R 

001643 

R 

*L 


06504 

R 

001635 

R 



06505 

R 

001656 

R 



06506 

R 

001666 

R 

*L 


06507 

R 

007777 

A 



06510 

R 

776676 

A 

*L 


06511 

R 

776006 

R 



06512 

R 

001762 

R 

*U 


06513 

R 

000004 

A 

*L 


0651 4 

R 

000005 

A 

*L 


06515 

R 

000006 

A 



06516 

R 

000010 

A 



06517 

R 

001000 

A 

*L 


06520 

R 

070000 

A 



06521 

R 

000023 

R 



06522 

R 

000055 

R 

*U 


06523 

R 

777776 

A 

★ L 




SIZE 

-06531 

1 ERROR LINES 
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DECTAP SRC 



ACSAV£ 

06347 

R 

ACTIVE 

00620 

R 

APIFLG 

00052 

R 

BKNUM 

00110 

R 


BLKNUM 

00033 

R 

BLKSIZ 

000400 

A 

BLOCK 

00034 

R 

BREAK 

02025 

R 

O 

BREAKl 

02043 

R 

DRKAC 

0 6350 

R 

BUF 

02346 

R 

bufblk 

000010 

A 

BUFGEN 

01772 

R 

BUFG.l 

01775 

R 

BUFSIZ 

004000 

A 

auF,i 

06351 

R 


BUF.2 

06352 

R 

BUF.3 

06353 

R 

CHKBLK 

01712 

R 

chkflg 

02216 

R 

O 

CHKSUM 

01676 

R 

CURHAN 

00032 

R 

OCTAPl 

01005 

R 

OECWC 

00035 

R 

DELHAN 

02242 

R 

delta 

00066 

R 

DEL.l 

06354 

R 

DINIT 

00530 

R 


DINI,2 

00630 

R 

DINI.3 

00753 

R 

DIN.l 

06355 

R 

DIN, 2 

06356 

R 

o 

DIN, 3 

06357 

R 

DIN. 4 

06360 

R 

DISTSW 

00043 

R 

DONE 

06361 

R 

DSERV 

01013 

R 

DSER.l 

01064 

R 

DSER.2 

01043 

R 

DSER,3 

01150 

R 


DSER.4 

01030 

R 

DSER.5 

01063 

R 

0SER.6 

01131 

R 

DSER.7 

01072 

R 

o 

DSER,8 

01123 

R 

DSTSWl 

06362 

R 

OTCA 

707541 

A 

PTDF 

707601 

A 

DTEF 

707561 

A 

DTLA 

707545 

A 

PTRA 

707552 

A 

PTRB 

707572 

A 


DTXA 

707544 

A 

EB A 

707764 

A 

EEM 

707702 

A 

ENDPUT 

02306 

R 

o 

ERCODE 

00022 

R 

ERN.l 

06363 

R 

ERPUT 

02146 

R 

ERPU.l 

02214 

R 

ERPU,2 

02160 

R 

FRP.l 

06364 

R 

ERRFLG 

00045 

R 

ER01 

02050 

R 


ER02 

02056 

R 

ER03 

02061 

R 

ER04 

02067 

R 

ER05 

02076 

R 

o 

ER06 

02100 

R 

ER07 

02125 

R 

EXIT 

01104 

R 

FIRST 

06365 

R 

FNOBLK 

01413 

R 

FNDB.l 

01436 

R 

FNDB.2 

01456 

R 

FNDB,3 

01461 

R 


FNDB,4 

01466 

R 

PNDB.5 

01510 

R 

FNDB.6 

01515 

R 

FN0B,7 

01517 

R 

o 

FNDB,8 

01572 

R 

FN0B,9 

01543 

R 

FNO.l 

06366 

R 

HANCNT 

00036 

R 


HANNUM 

00100 

R 

HOLD 

02016 

R 

INCA 

00051 

R 

INWC 

00050 

R 


LAC7 

00065 

R 

LINK 

06367 

R 

MAPS8R 

01255 

R 

MAPSTR 

00120 

R 

0 

MAPS.l 

01277 

R 

MAPS, 2 

01272 

R 

MAPS. 3 

01316 

R 

MAPS, 4 

01306 

R 


MAPS. 5 

01373 

R 

MAPS, 6 

01321 

R 

MAPS, 7 

01363 

R 

MAPS. 8 

01334 

R 


MAPS, 9 

01341 

R 

MAPS10 

01372 

R 

MAPSU 

01355 

R 

MAPS12 

01352 

R 

o 

MAP313 

01366 

R 

MAPS14 

01331 

R 

MOVERR 

00047 

R 

MPY32 

01705 

R 

NUMBLK 

00040 

R 

PARCNT 

06370 

R 

PARERR 

02102 

R 

PARERl 

02123 

R 


PARER2 

02 U0 

R 

PARTOT 

06371 

R 

POLSR 

00044 

R 

POLSWl 

06372 

R 

o 

P01SW2 

06373 

R 

PUT 

02301 

R 

PUTS.l 

02273 

R 

PUTS, 2 

02276 

R 


PUTS. 3 

02332 

R 

PUT.l 

06374 

R 

PUT, 2 

06375 

R 

rancnt 

01757 

R 


RANCON 

01760 

R 

RANDEX 

01761 

R 

RAN6EN 

01723 

R 

RANSAV 

01756 

R 

o 

RANTAD 

01740 

R 

RANTBL 

01762 

R 

RPTST 

00670 

R 

HOWRT 

00037 

R 


RESBUF 

02010 

R 

RESPUT 

02262 

R 

RUNLEN 

00046 

R 

SAVERR 

00054 

R 


SEARCH 

00064 

R 

SLNXHN 

01160 

R 

SLNX.l 

01235 

R 

SLN.i 

06376 

R 

o 

SIN. 2 

06377 

R 

SLN.3 

06400 

R 

SUMCHK 

01613 

R 

SUMC,1 

01643 

R 

SUMC.a 

01621 

R 

SUMC.3 

01634 

R 

SUMC.4 

01656 

R 

SUMC,5 

01645 

R 


SUMC.6 

01635 

R 

SUMC,7 

0 1666 

R 

5UMEXT 

06401 

R 

5UMS0 

06402 

R 

o 

SUMSWl 

06403 

R 

SUM.l 

06404 

R 

SUM, 2 

06405 

R 

SUM, 3 

06406 

R 

SUM. 4 

06407 

R 

SUM. 5 

06410 

R 

SVSTA 

00041 

R 

SV3TB 

00042 

R 


SYSCA 

00070 

R 

SYSERR 

00020 

R 

SYSWC 

00067 

R 

TEMPI 

00071 

R 

o 

TEMP2 

00072 

R 

TEMP3 

00073 

R 

TEMP4 

00074 

R 

TEMPS 

00075 

R 

TEMPS 

00076 

R 

TEMP7 

00077 

R 

TERMIN 

01115 

R 

TSTRUN 

000440 

A 

o 

tst.i 

uoosw 

06411 

00000 

R 

R 

TST.2 

06412 

R 

TSTl 

00714 

R 

TST2 

00736 

R 


o 


o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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uoosw 

00000 

R 

BUFBLK 

000010 

A 

CURHAN 

00032 

R 

BLKNUM 

0 0033 

R 

HANCNT 

00036 

R 

RDWRT 

00037 

R 

SVSTB 

00042 

R 

DISTSW 

00043 

R 

RUNLEN 

00046 

R 

MOVERR 

00047 

R 

APIFLG 

00052 

R 

saverr 

00054 

R 

DELTA 

00066 

R 

SYSWC 

00067 

R 

TEMP2 

00072 

R 

TEMP3 

00073 

R 

TEMP6 

00076 

R 

TEMP/ 

00077 

R 

MAPSTR 

00120 

R 

BLKSIZ 

000400 

A 

DINIT 

00530 

R 

DINI.2 

00630 

R 

TST2 

00736 

R 

DINI.3 

00753 

R 

DSER.4 

01030 

R 

DSER.2 

01043 

R 

DSER,7 

01072 

R 

EXIT 

01104 

R 

DSER,6 

01131 

R 

DSER.3 

01150 

R 

MAPSBR 

01255 

R 

MAPS, 2 

01272 

R 

MAPS. 3 

01316 

R 

MAPS, a 

01321 

R 

MAPS. 9 

01341 

R 

MAPS12 

01352 

R 

MAPS13 

01366 

R 

MAPS10 

01372 

R 

FNDB.l 

01436 

R 

FNDB.2 

01456 

R 

FNDB.5 

01510 

R 

FNDB.6 

01515 

R 

FNDB.8 

01572 

R 

SUMCHK 

01613 

R 

SUMC.6 

01635 

R 

SUMC.l 

01643 

R 

SUMC.7 

01666 

R 

CHKSUM 

01676 

R 

RANGEN 

01723 

R 

RANTAO 

01740 

R 

RANCON 

01760 

R 

RANOEX 

01761 

R 

BUFGa 

01775 

R 

RESBUF 

02010 

R 

BREAKl 

02043 

R 

ER0 1 

02050 

R 

ER04 

02067 

R 

ER05 

02076 

R 

PARER2 

02110 

R 

PARERl 

02123 

R 

ERPU.2 

02160 

R 

ERPU.l 

02214 

R 

RESPUT 

02262 

R 

PUTS.! 

02273 

R 

ENDPUT 

02306 

R 

PUTS. 3 

02332 

R 

ACSAVE 

06347 

R 

BRKAC 

06350 

R 

BUF.3 

06353 

R 

DEL . 1 

06354 

R 

DIN. 3 

06357 

R 

DIN. 4 

06360 

R 

ERNa 

06363 

R 

ERP.l 

06364 

R 

LINK 

06367 

R 

PARCNT 

06370 

R 

P0LSR2 

06373 

R 

PUT.l 

06374 

R 

SLN,2 

06377 

R 

SLN.3 

06400 

R 

SUMSWl 

06403 

R 

SUM.l 

06404 

R 

SUM. 4 

06407 

R 

SUM. 5 

06410 

R 

DTCA 

707541 

A 

DTXA 

707544 

A 

DTEF 

707561 

A 

DTRB 

707572 

A 

EBA 

707764 

A 





SYSERK 

00020 

R 

ERCQOE 

00022 

R 

BLOCK 

00034 

R 

QECWC 

00035 

R 

NUMBLK 

00040 

R 

SVSTA 

00041 

R 

PQLSW 

00044 

R 

errflg 

00045 

R 

INWC 

00050 

R 

INCA 

00051 

R 

SEARCH 

00064 

R 

LAC7 

00065 

R 

SYSCA 

00070 

R 

TEMPI 

00071 

R 

TEMP4 

00074 

R 

temps 

00075 

R 

HANNUM 

0010G 

R 

BKNUM 

00110 

R 

TSTRUN 

000440 

A 

ACTIVE 

00520 

R 

RPTST 

00670 

R 

TSTl 

00714 

R 

DCTAPl 

01005 

R 

dserv 

01013 

R 

DSER.l 

01054 

R 

USER. 5 

01063 

R 

TERMIN 

01115 

R 

USER. 8 

01123 

R 

SLNXHN 

01160 

R 

SLNX.l 

01235 

R 

MAPSa 

01277 

R 

MAPS, 4 

01306 

R 

MAPS14 

01331 

R 

MAPS, 8 

01334 

R 

MAPSU 

01355 

R 

MAPS, 7 

01363 

R 

MAPS. 6 

01373 

R 

fnoblk 

01413 

R 

FNDB.3 

01461 

R 

FNDB.4 

01466 

R 

FN0B.7 

01517 

R 

FN0B.9 

01543 

R 

SUMC.2 

01621 

R 

SUMC.3 

01634 

R 

SUMC.5 

01645 

R 

SUMC.4 

01656 

R 

MPY32 

01705 

R 

chkblk 

01712 

R 

RANSAV 

01756 

R 

RANCNT 

01757 

R 

RANTBL 

01762 

R 

BUFGEN 

01772 

R 

HOLD 

02016 

R 

BREAK 

02025 

R 

ER02 

02056 

R 

ER03 

02061 

R 

ER06 

02100 

R 

PARERR 

02102 

R 

ER07 

02125 

R 

ERPUT 

02146 

R 

CHKFLG 

02216 

R 

DELHAN 

02242 

R 

PUTS. 2 

02276 

R 

PUT 

02301 

R 

0UF 

02346 

R 

BUFSIZ 

004000 

A 

BUF.l 

06351 

R 

BUF.2 

06352 

R 

DIN.l 

06355 

R 

DIN, 2 

06356 

R 

DONE 

06361 

R 

QSTS01 

06362 

R 

FIRST 

06365 

R 

FND.l 

06366 

R 

PARTQT 

06371 

R 

POLSNl 

06372 

R 

PUT.2 

06375 

R 

SLNa 

06376 

R 

SUMEXT 

06401 

R 

SUMSH 

06402 

R 

SUM. 2 

06405 

R 

SUM. 3 

06406 

R 

TST.l 

06411 

R 

TST.2 

06412 

R 

DTLA 

70/545 

A 

DTRA 

707552 

A 

DTDF 

707601 

A 

EEM 

707702 

A 



